home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / irc_i_dodatki / mcf4amirc / rexx / jsound.amirx < prev    next >
Text File  |  1996-09-17  |  1KB  |  17 lines
  1. /* JSound.AMIRX
  2. // $VER: JSound.AMIRX 4.1 (29.07.96) (MCF Extra Command)
  3. \\ Written by Donald T. Becker (dtbecker@prolog.net) IRC: StarDustr
  4. // Please mail any bug reports/comments to the above address with a subject
  5. \\ header of MCF.AMIRX.
  6. //
  7. \\ ** What to do with this file?
  8. // Put this script in REXX:
  9. \\ Usage is: /Rx JSound -a #Channel sound.wav
  10. //  where -a (optional) tells JSound to play sound
  11. \\  after the join instead of before (default)
  12. //  sound.wav (optional) overides EntrySound defined below.
  13. \\         
  14. //  Add the following Alias    JS /Rx JSound %p
  15. \\  You may also desire to change the entry wav filename
  16. */
  17. ;EntrySound="Transprt.wav";parse arg flag Chan wav junk;if flag="" then exit;if 1=pos('#',flag) then;do;wav=Chan;Chan=flag;flag="";end;if Chan="" then exit;if wav ~="" then EntrySound=wav;flag=upper(flag);if flag ~="-A" then;do;"RAW PRIVMSG "Chan" :"||'01'x||"SOUND "EntrySound '01'x;xx=0;do cntr=1 by 1 until cntr=20;xx=cntr+xx;end cntr;end;"RAW JOIN "Chan;if flag="-A" then;do;getline;"RAW PRIVMSG "Chan" :"||'01'x||"SOUND "EntrySound '01'x;end;exit